home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / dev / lang / pcq12src.lzh / Runtime / System / Exec / Libraries.asm < prev    next >
Assembly Source File  |  1991-03-13  |  1KB  |  88 lines
  1. *
  2. *    Libraries.asm of PCQ Pascal
  3. *    Copyright (c) 1990 Patrick Quaid
  4. *
  5. *    The routines defined in Include/exec/libraries.i are implemented
  6. *    here.
  7. *
  8.  
  9.     SECTION    PCQ_Runtime,CODE
  10.  
  11.     XREF    _AbsExecBase
  12.  
  13.     XREF    _LVOAddLibrary
  14.     XDEF    _AddLibrary
  15. _AddLibrary
  16.     move.l    4(sp),a1
  17.     move.l    _AbsExecBase,a6
  18.     jmp    _LVOAddLibrary(a6)
  19.  
  20.     XREF    _LVOCloseLibrary
  21.     XDEF    _CloseLibrary
  22. _CloseLibrary
  23.     move.l    4(sp),a1
  24.     move.l    _AbsExecBase,a6
  25.     jmp    _LVOCloseLibrary(a6)
  26.  
  27.     XREF    _LVOMakeFunctions
  28.     XDEF    _MakeFunctions
  29. _MakeFunctions
  30.     move.l    a2,-(sp)
  31.     move.l    8(sp),a2
  32.     move.l    12(sp),a1
  33.     move.l    16(sp),a0
  34.     move.l    _AbsExecBase,a6
  35.     jsr    _LVOMakeFunctions(a6)
  36.     move.l    (sp)+,a2
  37.     rts
  38.  
  39.     XREF    _LVOMakeLibrary
  40.     XDEF    _MakeLibrary
  41. _MakeLibrary
  42.     move.l    a2,-(sp)
  43.     move.l    8(sp),d1
  44.     movem.l    12(sp),d0/a2
  45.     move.l    20(sp),a1
  46.     move.l    24(sp),a0
  47.     move.l    _AbsExecBase,a6
  48.     jsr    _LVOMakeLibrary(a6)
  49.     move.l    (sp)+,a2
  50.     rts
  51.  
  52.     XREF    _LVOOldOpenLibrary
  53.     XDEF    _OldOpenLibrary
  54. _OldOpenLibrary
  55.     move.l    4(sp),a1
  56.     move.l    _AbsExecBase,a6
  57.     jmp    _LVOOldOpenLibrary(a6)
  58.  
  59.     XREF    _LVOOpenLibrary
  60.     XDEF    _OpenLibrary
  61. _OpenLibrary
  62.     movem.l    4(sp),d0/a1
  63.     move.l    _AbsExecBase,a6
  64.     jmp    _LVOOpenLibrary(a6)
  65.  
  66.     XREF    _LVORemLibrary
  67.     XDEF    _RemLibrary
  68. _RemLibrary
  69.     move.l    4(sp),a1
  70.     move.l    _AbsExecBase,a6
  71.     jmp    _LVORemLibrary(a6)
  72.  
  73.     XREF    _LVOSetFunction
  74.     XDEF    _SetFunction
  75. _SetFunction
  76.     movem.l    4(sp),d0/a0/a1
  77.     move.l    _AbsExecBase,a6
  78.     jmp    _LVOSetFunction(a6)
  79.  
  80.     XREF    _LVOSumLibrary
  81.     XDEF    _SumLibrary
  82. _SumLibrary
  83.     move.l    4(sp),a1
  84.     move.l    _AbsExecBase,a6
  85.     jmp    _LVOSumLibrary(a6)
  86.  
  87.     END
  88.